Cls 0 : Double Buffer : Autoback 2 : Ink 1,0,1 : Get Sprite Palette : M$=" Logger Larry " : For A=0 To 319 Step 2 : Bob 1,A,100,2+(A mod 8)/4 : Play 40+Rnd(4)*4,0 : Text A/8*8,100,Mid$(M$,(A/8) mod Len(M$)+1,1)
Next A : Wait Key : BS=1 : Dim LX(9),LY(9),BX(10),BY(10),BD(10),G(6,19),T(6) : Do : Screen Open 0,320,256,16,Lowres : Curs Off : Flash Off : Hide On : Cls 0 : Get Sprite Palette : For A=0 To 10 : BD(A)=Rnd(BS)+1
Next A : Bob Update Off : X=4 : Y=250 : DEAD=0 : LV=0 : For A=0 To 10 : BX(A)=315 : BY(A)=6-(A mod 6) : Next A : L=266 : B=0 : T=-1 : For A=0 To 6 : T=-T : G(A,B)=L-16 : L=L-16 : Paste Bob B*16,L,1
Repeat : B=B+T : G(A,B)=L-1 : Dec L : Paste Bob B*16,G(A,B),1 : Until B=0 or B=19 : T(A)=-T : Next A : Double Buffer : R=0 : BR=0 : T=0 : OK=1 : While DEAD=0 : Bob 1,X,Y,2+R*2+T : For A=0 To 10
Bob 2+A,BX(A),G(BY(A),BX(A)/16),10+BR : BX(A)=BX(A)+BD(A)*T(BY(A)) : BY(A)=BY(A)+(BX(A)<4 or BX(A)>316) : If BY(A)=-1 : BY(A)=6 : BX(A)=315 : End If : Next A
For A=0 To BS : Bob 13+A,LX(A),LY(A),14+LR : Next A : Bob Update : Wait Vbl : Add BR,1,0 To 3 : If Rnd(100)=0 : L=Rnd(BS) : LX=Rnd(19) : LY=Rnd(6) : LX(L)=LX*16 : LY(L)=G(LY,LX) : End If : LR=(LR+1) mod 8
If JF=0 : T=(X mod 8)/4 : End If : If LV=6 and X>311 : DEAD=2 : End If : X=Max(4,Min(316,X+DX*4)) : If JF=0 : DX=(Jleft(1)-Jright(1))*OK : End If : If Bob Col(1,13 To 13+BS) : LF=LF+1 : Else LF=0 : End If
R=-(DX<0) : If JF=0 : Y=G(LV,X/16)-LF : JF=-Fire(1) : J=-5*JF : T=-(JF=0)*T+JF*(4-R) : Else Y=Y+J : For A=0 To 6 : If(OK=1 and Y/6=G(A,X/16)/6 and(J>0 or A=0)) or(OK=0 and Y>DY)
LV=A : DEAD=1-OK : JF=0 : A=99 : End If : Next A : End If : J=Min(4,J+JF*BR/2) : If Bob Col(1,2 To 12) : Bell 12 : OK=0 : Y=G(LV,X/16) : DY=Y : JF=1 : J=-5 : T=6-R : End If : Wend
Paper 0 : Pen 1 : Locate 0,16 : If DEAD=1 : Centre "You Failed !" : Else Centre "Next Level !" : Inc BS : End If : Wait Key : JF=0 : LF=0 : Loop
